home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 21 / Tiger_Disk_021_19xx_Tiger-Crew-Disk_de_Side_A.d64 / spg_demo malen (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  895b  |  42 lines
  1. 10 ifpeek(49234)<>asc("s")thenload" sprite*",8,1
  2. 20 sys49152:poke53280,11:poke53281,12:poke646,0
  3. 100 !gr1;gn0;ge;gx145;gy75;gi;gp1;gc11
  4. 101 !ds 255,255,255,255,255,255,255,255
  5. 102 x=0:y=0
  6. 103 gosub1000:!dm0:!dd x,y
  7. 104 geta$:ifa$=""then:!js:goto104
  8. 105 ifa$=""thenify<167then:!dm1:!dd x,y:y=y+1
  9. 106 ifa$="[145]"thenify>0then:!dm1:!dd x,y:y=y-1
  10. 107 ifa$=""thenifx<95then:!dm1:!dd x,y:x=x+1
  11. 108 ifa$="[157]"thenifx>0then:!dm1:!dd x,y:x=x-1
  12. 109 ifa$=chr$(13)then150
  13. 110 ifa$="s"then200
  14. 111 ifa$="l"then300
  15. 119 goto103
  16. 150 gosub1002:!dm0:!dd x,y
  17. 151 geta$:ifa$=""then:!js:goto151
  18. 154 ifa$=""thenify<167theny=y+1
  19. 155 ifa$="[145]"thenify>0theny=y-1
  20. 156 ifa$=""thenifx<95thenx=x+1
  21. 157 ifa$="[157]"thenifx>0thenx=x-1
  22. 158 ifa$=chr$(13)then103
  23. 159 ifa$="s"then200
  24. 160 ifa$="l"then300
  25. 169 goto150
  26. 200 !gr0
  27. 201 print"[147]"
  28. 202 input" name ";n$
  29. 203 !gs 0,"@:"+n$,8
  30. 204 !gr1:goto103
  31. 300 !gr0;ge
  32. 301 print"[147]"
  33. 302 input" name ";n$
  34. 303 !gl 0,n$,8
  35. 304 !gr1;gn0:goto103
  36. 1000 !tp1,1,"clear - mode !"
  37. 1001 gosub1003:return
  38. 1002 !tp1,1,"set - mode !  "
  39. 1003 !tp1,3,"x :   [157][157][157]";x
  40. 1004 !tp1,4,"y :[160][160][160][157][157][157]";y
  41. 1005 return
  42.